home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / gs_init.ps < prev    next >
Text File  |  1997-12-28  |  46KB  |  1,459 lines
  1. %    Copyright (C) 1989, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for the interpreter.
  19. % When this is run, systemdict is still writable.
  20.  
  21. % Comment lines of the form
  22. %    %% Replace <n> <file(s)>
  23. % indicate places where the next <n> lines should be replaced by
  24. % the contents of <file(s)>, when creating a single merged init file.
  25.  
  26. % The interpreter can call out to PostScript code.  All procedures
  27. % called in this way, and no other procedures defined in these
  28. % initialization files, have names that begin with %, e.g.,
  29. % (%Type1BuildChar) cvn.
  30.  
  31. % Check the interpreter revision.  NOTE: the interpreter code requires
  32. % that the first non-comment token in this file be an integer.
  33. 510
  34. dup revision ne
  35.  { (gs: Interpreter revision \() print revision 10 string cvs print
  36.    (\) does not match gs_init.ps revision \() print 10 string cvs print
  37.    (\).\n) print flush null 1 .quit
  38.  }
  39. if pop
  40.  
  41. % Acquire userdict, and set its length if necessary.
  42. /userdict where
  43.  { pop userdict maxlength 0 eq }
  44.  { true }
  45. ifelse
  46.  {        % userdict wasn't already set up by iinit.c.
  47.    /userdict
  48.    currentdict dup 200 .setmaxlength        % userdict
  49.    systemdict begin def        % can't use 'put', userdict is local
  50.  }
  51.  { systemdict begin
  52.  }
  53. ifelse
  54.  
  55. % Define dummy local/global operators if needed.
  56. systemdict /.setglobal known
  57.  { true .setglobal
  58.  }
  59.  { /.setglobal { pop } bind def
  60.    /.currentglobal { false } bind def
  61.    /.gcheck { pop false } bind def
  62.  }
  63. ifelse
  64.  
  65. % Define .languagelevel if needed.
  66. systemdict /.languagelevel known not { /.languagelevel 1 def } if
  67.  
  68. % Optionally choose a default paper size other than U.S. letter.
  69. % (a4) /PAPERSIZE where { pop pop } { /PAPERSIZE exch def } ifelse
  70.  
  71. % Turn on array packing for the rest of initialization.
  72. true setpacking
  73.  
  74. % Define the old MS-DOS EOF character as a no-op.
  75. % This is a hack to get around the absurd habit of MS-DOS editors
  76. % of adding an EOF character at the end of the file.
  77. <1a> cvn { } def
  78.  
  79. % Acquire the debugging flags.
  80. currentdict /DEBUG known   /DEBUG exch def
  81.   /VMDEBUG
  82.     DEBUG {{print mark
  83.             systemdict /level2dict known
  84.          { .currentglobal dup false .setglobal vmstatus
  85.            true .setglobal vmstatus 3 -1 roll pop
  86.            6 -2 roll pop .setglobal
  87.          }
  88.          { vmstatus 3 -1 roll pop
  89.          }
  90.         ifelse usertime 16#fffff and counttomark
  91.           { ( ) print (           ) cvs print }
  92.         repeat pop
  93.         ( ) print systemdict length (    ) cvs print
  94.         ( ) print countdictstack (  ) cvs print
  95.         ( <) print count (  ) cvs print (>\n) print flush
  96.       }}
  97.       {{pop
  98.       }}
  99.      ifelse
  100.   def
  101.  
  102. currentdict /BATCH known   /BATCH exch def
  103. currentdict /DELAYBIND known   /DELAYBIND exch def
  104. currentdict /DISKFONTS known   /DISKFONTS exch def
  105. currentdict /ESTACKPRINT known   /ESTACKPRINT exch def
  106. currentdict /FAKEFONTS known   /FAKEFONTS exch def
  107. currentdict /FIXEDMEDIA known   /FIXEDMEDIA exch def
  108. currentdict /FIXEDRESOLUTION known   /FIXEDRESOLUTION exch def
  109. currentdict /LOCALFONTS known   /LOCALFONTS exch def
  110. currentdict /NOBIND known   /NOBIND exch def
  111. /.bind /bind load def
  112. NOBIND { /bind { } def } if
  113. currentdict /NOCACHE known   /NOCACHE exch def
  114. currentdict /NOCIE known   /NOCIE exch def
  115. currentdict /NODISPLAY known   not /DISPLAYING exch def
  116. currentdict /NOFONTMAP known   /NOFONTMAP exch def
  117. currentdict /NOFONTPATH known   /NOFONTPATH exch def
  118. currentdict /NOGC known   /NOGC exch def
  119. currentdict /NOPAUSE known   /NOPAUSE exch def
  120. currentdict /NOPLATFONTS known   /NOPLATFONTS exch def
  121. currentdict /NOPROMPT known   /NOPROMPT exch def
  122. % The default value of ORIENT1 is true, not false.
  123. currentdict /ORIENT1 known not { /ORIENT1 true def } if
  124. currentdict /OSTACKPRINT known   /OSTACKPRINT exch def
  125. currentdict /OUTPUTFILE known    % obsolete
  126.  { /OutputFile /OUTPUTFILE load def
  127.    currentdict /OUTPUTFILE .undef
  128.  } if
  129. currentdict /QUIET known   /QUIET exch def
  130. currentdict /SAFER known   /SAFER exch def
  131. currentdict /SHORTERRORS known   /SHORTERRORS exch def
  132. currentdict /WRITESYSTEMDICT known   /WRITESYSTEMDICT exch def
  133.  
  134. % Acquire environment variables.
  135. currentdict /DEVICE known not
  136.  { (GS_DEVICE) getenv { /DEVICE exch def } if } if
  137.  
  138. (START) VMDEBUG
  139.  
  140. % Open the standard files, so they will be open at the outermost save level.
  141. (%stdin) (r) file pop
  142. (%stdout) (w) file pop
  143. (%stderr) (w) file pop
  144.  
  145. % Define a procedure for skipping over an unneeded section of code.
  146. % This avoids allocating space for the skipped procedures.
  147. % We can't use readline, because that imposes a line length limit.
  148. /.skipeof    % <string> .skipeof -
  149.  { currentfile exch 1 exch .subfiledecode flushfile
  150.  } bind def
  151.  
  152. % If we're delaying binding, remember everything that needs to be bound later.
  153. DELAYBIND NOBIND not and
  154.  { .currentglobal false .setglobal
  155.    userdict /.delaybind 1500 array put
  156.    .setglobal
  157.    userdict /.delaycount 0 put
  158.     % When we've done the delayed bind, we want to stop saving.
  159.     % Detect this by the disappearance of .delaybind.
  160.    /bind
  161.     { userdict /.delaybind .knownget
  162.        { .delaycount 2 index put
  163.          userdict /.delaycount .delaycount 1 add put
  164.        }
  165.        { .bind
  166.        }
  167.       ifelse
  168.     } bind def
  169.  } if
  170.  
  171. % Define procedures to assist users who don't read the documentation.
  172. userdict begin
  173. /help
  174.  { (Enter PostScript commands.  '(filename) run' runs a file, 'quit' exits.\n)
  175.    print flush
  176.  } bind def
  177. /? /help load def
  178. end
  179.  
  180. % Define =string, which is used by some PostScript programs even though
  181. % it isn't documented anywhere.
  182. % Put it in userdict so that each context can have its own copy.
  183. userdict /=string 256 string put
  184.  
  185. % Print the greeting.
  186.  
  187. /printgreeting
  188.  { mark
  189.    product (Ghostscript) search
  190.     { pop pop pop
  191.       (This software comes with NO WARRANTY: see the file PUBLIC for details.\n)
  192.     }
  193.     { pop
  194.     }
  195.    ifelse
  196.    (\n) copyright
  197.    (\)\n) revisiondate 100 mod (-)
  198.    revisiondate 100 idiv 100 mod (-)
  199.    revisiondate 10000 idiv ( \()
  200.    revision 10 mod
  201.    revision 100 mod dup 0 ne { 10 idiv } { pop } ifelse (.)
  202.    revision 100 idiv ( )
  203.    product
  204.    counttomark
  205.     { (%stdout) (w) file exch false .writecvp
  206.     } repeat pop
  207.  } bind def
  208.  
  209. QUIET not { printgreeting flush } if
  210.  
  211. % Define a special version of def for making operator procedures.
  212. /odef        % <name> <proc> odef -
  213.  { 1 index exch .makeoperator def
  214.  } .bind def
  215.  
  216. %**************** BACKWARD COMPATIBILITY
  217. /getdeviceprops
  218.  { null .getdeviceparams
  219.  } bind odef
  220. /.putdeviceprops
  221.  { null true counttomark 1 add 3 roll .putdeviceparams
  222.    dup type /booleantype ne
  223.     { dup mark eq { /unknown /rangecheck } if
  224.       counttomark 4 add 1 roll cleartomark pop pop pop
  225.       /.putdeviceprops load exch signalerror
  226.     }
  227.    if
  228.  } bind odef
  229. /max { .max } bind def
  230. /min { .min } bind def
  231. /.currentfilladjust { .currentfilladjust2 pop } bind odef
  232. /.setfilladjust { dup .setfilladjust2 } bind odef
  233. /.writecvs { false .writecvp } bind odef
  234.  
  235. % Define predefined procedures substituting for operators,
  236. % in alphabetical order.
  237.  
  238. userdict /#copies 1 put
  239. % Adobe implementations don't accept /[ or /], so we don't either.
  240. ([) cvn
  241.     /mark load def
  242. (]) cvn
  243.     {counttomark array astore exch pop} odef
  244. /abs    {dup 0 lt {neg} if} odef
  245. % .beginpage is redefined if setpagedevice is present.
  246. /.beginpage { } odef
  247. /copypage
  248.     { 1 .endpage
  249.        { .currentnumcopies false .outputpage
  250.          (>>copypage, press <return> to continue<<\n) .confirm
  251.        }
  252.       if .beginpage
  253.     } odef
  254. /countexecstack { false .countexecstack } odef
  255. % .